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EDIT ROUTINE 


DECUS Program Library Write-up 


DECUS No. 8-296 


EDIT ROUTINE is a minimum length program that will enable the user to change, examine, 
or jump to any core location. Program has twelve instructions which are called by a single 
ASCII character. If an invalid character is entered, it is not accepted and there is no echo. 

If a valid character is entered and an address or other numerical input is required, octal 
characters will only be accepted and echoed. In the event of an error, a rubout will return 
the user to the beginning of the program. The user is in command at all times. He may always 
stop output with the input of any character. 

The program is designed to be versatile. The program can edit itself. If 7064 is changed to 
0200, an input of "S" (Start) will jump the user to 0200. If 7432 is changed to 5213, the 
binary punch is changed to a RIM punch. Those with EAE will have a monitor of the location 
being punched in the MQ. Those without EAE should change 7426 to 7000. The Tape Input 
("T") can be used to just examine binary or RIM tape by changing 7356 to 7300. The program 
subroutines can be used from anywhere in core. The Print Alpha Subroutine starts printing 
from the location carried into the subroutine in the AC. A negative number stops printout. 
Control is then returned to the calling program. The Read and the Print Number Subroutines 
may also be used. The number to be read or printed is returned or sent in the AC. Both of 
these subroutines have ASCII octal input or output of the format XXXX. 

The twelve input characters are A, C, D, E, H, J, M, P, R, S, T, & Z. The first command 
is the Accept command of the format A aaaa,nnnn,nnnn,nnnn, . . .rubout. It will deposit 
the first number (nnnn) into the first address (aaaa), and succeeding numbers into succeeding 
addresses. A rubout terminates input. The next command is the Comment of the form C any 
data or comment . . .rubout. It can also be used to copy paper tapes. The Dump command 
is of the format Daaaa. The computer will start dumping the contents of core until any character 
is entered. The output is of the format of one address and the contents of the next eight ad¬ 
dresses. The Edit command is of the format E aaaa,nnnn. The number nnnn will be loaded 
into location aaaa. The Halt (format H) stops the computer just before the beginning of the 
program. User may press Continue to start program. 

The command Jump of format J aaaa will cause a jump to location aaaa. The binary punch 
is called with the format M aaaa END bbbb. A binary tape is punched from locations aaaa to 
bbbb. After the input format is typed, user is to turn punch on and press Continue. After 
the tape is punched, user is to turn punch off and then press Continue. The command P aaaa 
will Print the contents of aaaa. The Read continuous of format R aaaa will print the location 
and contents of aaaa and succeeding locations until any character is pressed. The command Start 
(format S) is a reserve symbol that now jumps to 7000, the beginning of the program. The 
command Tape (format T) will translate any binary or RIM tape to octal ASCII printout of 
address and contents and also load tape into core. The command Zero (format Z) clears core, 
and places 7402 in all core locations from 0000 to 6757. 





EDIT ROUTINE - Sample Run 


B READY 
A0000 -n 
0 ilT 

4567 ) 

W23 f 
4567 J 
READY 


"B READY" is the program output whenever 
the program is started from 6775. 

This is an example of four numbers being 
entered into core starting at location 0000 . 
This is the Accept command. It is terminated 
with a rubout. 




READY 


R0000 
—000 0] 23 
0001 4567 
0002 0123 
0003 4567 
0004 7402 
0005 7402 
0006 7402) 

10004 4444 READY «- 

£0005 3333 READY 

P0004 4444 READY ^- 

T0005 3333 READY 

W000 END 0005 @ %7%7$$ READY ?- 

A READY 

C THIS IS A COMMENT. READY 
17000 READY 

D0000 

TW00 0123 4567 0123 4567 4444 3333 
A 0010 7402 7402 7402 7402 7402 7402 
S READY 
T 0000 0123^ 

0001 4567 
0002 0123 
0003 4567 
0004 4444 
0005 3333 
READY 

M «- 


•This is an example of Read command. The user 
input is underlined, the program output is not. 
User input of any character will terminate 
output at the end of the line being printed. 


"READY" shows control has been returned to user. 

-This is an example of the Edit command. 

The number 444 is loaded into 0004. 

This is an example of the Print command. 

-This is an example of the Binary Punch command. 
Continue was pressed before and after the 
punching of the binary tape. 


7402 7402 
7402 7402_READY 

Above is an example of the Dump command. 




To the left is an example of the above punched 
binary tape being read into the computer. 


—This is an example of the Halt command. 
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EDIT ROUTINE 


\ 


STARTING LOCATION = 6775 NOVEMBER 1969 J. R. LEMON 


D6760 

0 

1 

2 

3 

4 

5 

6 

7 


A 676J0 

7300 

3356 

3357 

7300 

1373 

3757 

2357 

1356 

"Z" = Zero and set to 7402 

A 6770 

7440 

5375 

5363 

740 T 

"B" 

7300 

1374 

60441 

locations 0000 to 6756 

A 7000 

7000 

7300 

1277 

4300 

7000 

6031 

5205 

6036 

INSTRUCTION LOGIC 

A 7,01$ 

3240 

1242 

3241 

1641 

7450 

5204 

7041 

1240 


A 7020 

7440 

5234 

1641 

6041 

5223 

6046 

7301 

1241 

Looks for instruction character 

A 7030 

3241 

1641 

3241 

5641 

2241 

2241 

7300 

5213 

and jumps to appropriate sub¬ 

A 7040 

AAAA 

AAAA 

7043 

"J" 

7310 

H £ II 

7313 

M p II 

routine at address after character 

A 7050 

7260 

"A" 

7243 

MR,, 

7265 

"M" 

7400 

"C" 


A 7060 

7322 

"D" 

7520 

"S" 

7000 

ii j n 

7336 

M Z II 

b = 5pecial 

A 7070 

6760 

"H" 

6773 

0000 

7075 

0240 

4240 

7115 

ti — Hair 


# A 7100 AAAA 3314 73ffl T7T4 6$4l 3304 6$46 751$ PRINT ALPHA SUBROUTINE 

A 71 10 57jj0 2314 5302 5700 7565 f ,0240 $322 $305 "READY CR LF: 


A 7120 

0301 

0304 

0331 

0215 

4212 

[AAAA 

1372 

5330 

3371 

5327 

0170 

7301 

7450 

7300 

7300 

7402 

0007 

3370 

5200 

1371 

1370 

7402 

7777 

READ NUMBER SUBROUTINE 

Reads 4 octal numbers and 
returns with number in ACC. 

Rubout returns to instruction logic 

A 7130 

A 7140 

A 7150 

A 7160 

A 7170 

6031 

7300 

6041 

7006 

1676 

5330 

1371 

5350 

7004 

0000 

6036 

0375 

6046 

1371 

7401 

3371 

1374 

0376 

7430 

0400 

1371 

7440 

7000 

5725 

7720 

A 7200 

AAAA 

3240 

1234 

3233 

1236 

3235 

1237 

5220 


A 7210 

7010 

7012 

7010 

7012 

7010 

7012 

0241 

1242 

PRINT NUMBER SUBROUTINE 

A 7220 

6041 

5220 

6046 

2235 

2235 

7300 

1240 

2233 

Prints number in ACC and 

A 7230 

5635 

5600 

0020 

0000 

7773 

7220 

7206 

0240 

returns to instruction logic 

A 7240 

7240 

0007 

0260 

| 4655 

3307 

1257 

4656 

4655 

"A" = Accept 

A~ 7250 

3707 

2307 

5245 

7402 

7000 

7125 

7100 

7123 

Addresses of subroutine 

A 7260 

4655 

3307 

1707 

4200 

5654[ 

4655 

3307 

7300 

1 "P" = Print 

A 7270 

1257 

4656 

7300 

1307 

4200 

7300 

1707 

4200 

iin ii _ n • j. i• 

A 7300 

2307 

6031 

5267 

5654 

4240 

7304 

AAAA 

AAAA 

R = Print continuous 

A 7310 

4655 

3307 

5707 j 

4655 

3307 

1305 

4656 

4655 

"J" = Jump 

A 7320 

3707 

56541 

7300 

6031 

5323 

6036 

6041 

5326 

= Edit 

A 7330 

6046 

1335 

7440 

5322 

5654 

7401 

[7300- 

6031 

"C" = Copy 

A 7340 

5337 

6036 

7006 

7006 

7510 

5372 

7006 

6031 

"T" = Tape input 

A 7350 

5347 

6034 

7430 

5376 

3307 

1307 

3706 

1306 


A 7360 

4200 

7300 

1307 

4200 

7300 

1257 

4656 

2306 

Binary and RIM input loaded 

A 7370 

6032 

5336 

1232 

7450 

5654 

5336 

3306 

5370 

with echo in ASCII 

A 7400 

4716 

3310 

1307 

4715 

4716 

7040 

1310 

3311 

ii i 4 ii n In* t 

A 7410 

7402 

1263 

4715 

7300 

1310 

71 20 

4240 

1310 

M = Punch Binary Tape 

A 7420 

4253 

1710 

4240 

1710 

4253 

1310 

7421 

2310 

if location 7432 is changed to 

A 7430 

7000 

2311 

5221 

1263 

4715 

7402 

5713 

7402 

5213, tape punched in RIM. 

A 7440 

AAAA 

70T2 

70T2 

70 12 

$252 

6041 " 

5245 

6$46 

Punch first two numbers subroutine 

A 7450 

7300 

. 5640 

0177 

AAAA 

0262 

6041 

5255 

6046 

Punch last two numbers subroutine 

A 7460 

7300 

5653 

0077 1 7464 

$200“ 

~0200 

$20$~ 

~0200 


A 747$ 

""$20$ 

$200 0200 ~ 

0200 

0200 

0200 

0200 

4200 

Leader code 
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EDIT ROUTINE (Continued) 


D6760 

0 

1 

2 

3 

4 

5 

6 

7 


A 7500 

0240 

0305 

0316 

0304 

4240 

4240 

7420 

7500 

"END" 

A 751,0 

AAAA 

AAAA 

AAAA 

7000 

7562 

7100 

7125 

7200 

Addresses of subroutines 

A 7520 

4716 

3312 

7300 

1314 

4715 

7300 

1312 

4717 


A 7530 

4350 

4350 

4350 

4350 

4350 

4350 

4350 

4350 

u — Dump 

A 7540 

7000 

7000 

6031 

5322 

5713 

7402 

7402 

7402 

Prints the contents of core 

A 7550 

AAAA 

7300 

1712 

4717 

7300 

7000 

7000 

2312 


A 7560 

5750 

7402 

0377 

0215 

0212 

430l| 

7402 

7402 

Not used 

A 7570 

7402 

7420 

7420 

7420 

7420 

7420 

7420 

7402 

A 7600 

7402 

7402 

7402 

7402 

7402 

7402 

7402 

7402 


A 7610 

7402 

7402 

00001 6201 

0200 

0353 

4177 

7402 


A 7620 

7402 

7402 

7402 

7402 

7402 

7402 

7725 

3212 


A 7630 

4260 

1300 

7750 

5237 

2212 

7040 

5227 

1212 

DIMADV 1 /'"'NA n\CD 

A 7640 

7640 

5230 

1214 

0354 

1341 

7510 

2226 

7750 

diNAKY LOAlJtK 

A 7650 

5626 

1214 

0256 

1257 

3213 

5230 

0070 

6201 


A 7660 

7631 

5262 

6031 

5262 

6036 

3214 

1214 

5660 


A 7670 

6011 

5270 

6012 

6014 

5265 

4343 

7041 

1215 


A 7700 

7402 

6032 

6014 

6224 

1257 

3213 

7604 

7700 


A 7710 

1353 

1352 

3261 

4226 

5313 

3215 

1213 

3336 


A 7720 

1214 

3376 

4260 

3355 

4226 

5275 

4343 

7420 


A 7730 

5336 

3216 

1376 

1355 

1215 

5315 

6201 

3616 


A 7740 

2216 

7600 

5332 

7676 

1376 

7106 

7006 

7006 


A 7750 

1355 

5743 

5262 

0006 

0300 

0002 | 6032 

6031 


A 7760 

5357 

6036 

7106 

"7006 

7510 

5357 

7006 

6031 

RIM LOADER 

A 7770 

5367 

6034 

7420 

3776 

3376 

5356 

0003 

5301 



4 












